100 REM *******************************
110 REM *******************************
120 REM ****                       ****
130 REM ****  BY BRIAN A.MITCHELL  ****
140 REM ****                       ****
150 REM ****  BROCKVILLE, ONTARIO  ****
160 REM ****                       ****
170 REM ****     613-342-0733      ****
180 REM ****                       ****
190 REM ****       FEB 1984        ****
200 REM ****                       ****
210 REM ****      TPUG# 2923       ****
220 REM ****                       ****
230 REM *******************************
240 REM *******************************
250 REM
260 FORL=54272TO54296:POKEL,0:NEXT:L=0
270 PRINT"[147][152]":POKE53280,0:POKE53281,0
280 POKE54296,15:POKE54277,16:POKE54278,125:POKE54276,17
290 GOSUB1490:IFPEEK(1854)<>13THEN790
300 PRINT"[147]":PRINTTAB(13)"  MIND READ  "
310 PRINT:PRINT"INSTRUCTIONS"
320 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183]"
330 PRINT:PRINT
340 PRINT"THE COMPUTER WILL ASK YOU TO SELECT A NUMBER BETWEEN 1 AND 100."
350 PRINT
360 PRINT"YOU WILL THEN BE REQUIRED TO PERFORM SOME SIMPLE ARITHMETIC";
370 PRINT" ON PAPER, USING THE NUMBER YOU HAVE SELECTED ."
380 PRINT
390 PRINT"ON COMPLETION THE COMPUTER WILL GIVE YOUTHE ANSWER, WITHOUT EVER ";
400 PRINT"HAVING SEEN THEORIGINAL NUMBER."
410 GOSUB810
420 PRINT"[147]"
430 A$="1.SELECT A NUMBER BETWEEN 1 AND 100.":P$=""
440 GOSUB850
450 FORT=1TO600:NEXTT
460 A$="2.WRITE THE NUMBER ON A PIECE OF PAPER.":P$=""
470 GOSUB850:GOSUB810
480 A$="3.MULTIPLY YOUR NUMBER BY 2.":P$=""
490 GOSUB850:GOSUB810
500 GOSUB940
510 A$="4.TO THAT TOTAL ADD":P$=""
520 GOSUB850
530 PRINT"";TAB(19);NB;"."
540 GOSUB810
550 A$="5.DIVIDE YOUR TOTAL BY 2.":P$=""
560 GOSUB850:GOSUB810
570 A$="6.SUBTRACT YOUR SELECTED NUMBER FROM THE  PRESENT TOTAL."
580 P$=""
590 GOSUB850:GOSUB810
600 A$="7.PRESS SPACE BAR TO SEE THE ANSWER !":P$=""
610 GOSUB850:GOSUB810
620 PRINT"[147]"
630 A$="THE CORRECT ANSWER IS":P$=""
640 GOSUB850
650 PRINT""TAB(21);NB/2
660 A$="---------------------------------------":P$=""
670 GOSUB850
680 FORT=1TO1000:NEXTT
690 A$="IF YOUR TOTAL DIFFERS PRESS 'H'."
700 P$=""
710 GOSUB850
720 A$=" PRESS 'C' TO CONTINUE "
730 P$=""
740 GOSUB850
750 GETAN$:IFAN$=""THEN750
760 IFAN$="H"THEN970
770 IFAN$<>"C"THEN750
780 GOTO420
790 SYS64738
800 END
810 PRINT""TAB(12)" PRESS SPACE BAR "
820 GETAN$:IFAN$<>CHR$(32)THEN820
830 PRINT""TAB(12)"                  "
840 RETURN
850 FORL=1TOLEN(A$)
860 PRINTP$;LEFT$(A$,L)
870 POKE54273,88
880 FORT=1TO10:NEXTT
890 POKE54273,34
900 FORT=1TO5:NEXTT
910 NEXTL
920 POKE54273,0
930 RETURN
940 NB=INT(100*RND(1))+1
950 IFNB/2-INT(NB/2)=.5THEN940
960 RETURN
970 READA$
980 IFA$="0"THENRESTORE:GOTO970
990 P$=""
1000 GOSUB850
1010 FORT=1TO1500:NEXTT
1020 PRINT"[147]"
1030 A$=" COMPUTERS ANSWER [146]":P$=""
1040 GOSUB850
1050 PRINT""TAB(18);NB/2
1060 A$="ENTER YOUR SELECTED NUMBER"
1070 P$=""
1080 GOSUB850
1090 PRINT""TAB(27);:INPUTAN$
1100 AN=VAL(AN$)
1110 IFAN=0THENGOSUB1340:GOTO1060
1120 IFAN<1ORAN>100THENGOTO1390
1130 PRINT"";AN
1140 A$="TIMES":P$=""
1150 GOSUB850
1160 PRINT""TAB(12);" 2 =";2*AN
1170 PRINT""2*AN
1180 A$="PLUS"
1190 P$=""
1200 GOSUB850
1210 PRINT""TAB(12);NB"=";2*AN+NB
1220 PRINT""2*AN+NB
1230 A$="DIVIDED BY 2":P$=""
1240 GOSUB850
1250 PRINT""TAB(20);"="(2*AN+NB)/2
1260 PRINT""(2*AN+NB)/2
1270 A$="MINUS SELECTED NUMBER":P$=""
1280 GOSUB850
1290 PRINT"";TAB(29);"=";(2*AN+NB)/2-AN
1300 A$=" PRESS SPACE BAR TO CONTINUE [146]":P$=""
1310 GOSUB850
1320 GETAN$:IFAN$<>CHR$(32)THEN1320
1330 GOTO300
1340 A$="SORRY,THAT'S NOT A NUMBER!"
1350 P$=""
1360 GOSUB850
1370 FORT=1TO1200:NEXTT
1380 RETURN
1390 A$=" OUT OF REQUESTED RANGE !!"
1400 P$=""
1410 GOSUB850
1420 FORT=1TO1200:NEXTT
1430 A$="BETTER LEARN HOW TO READ FIRST !!!"
1440 P$=""
1450 PRINT"[147]"
1460 GOSUB850
1470 FORT=1TO1800:NEXTT
1480 GOTO300
1490 A$="  MIND READ  "
1500 P$=""
1510 GOSUB850
1520 FORT=1TO300:NEXTT
1530 A$="BY-BRIAN MITCHELL"
1540 P$=""
1550 GOSUB850
1560 FORT=1TO1800:NEXTT
1570 RETURN
1580 DATA"> TIME TO SHARPEN THE PENCIL !!"
1590 DATA"> IT'S ONLY SIMPLE ARITHMETIC !!"
1600 DATA"> BETTER GO BACK TO SCHOOL !!!"
1610 DATA"> TRY USING A CALCULATOR !!!"
1620 DATA"> YOU NEED A COMPUTER !!!"
1630 DATA"0"